home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / Reference / DevCon / Milan_1991 / Devcon91.4 / AppShell / Examples / Skeleton / test.skel < prev   
Encoding:
Text File  |  1992-09-01  |  817 b   |  35 lines
  1. /** test.skel 1.0 (22-Apr-90)
  2.  **
  3.  ** Test RVI powers of AppShell
  4.  **
  5.  ** Written by David N. Junod
  6.  **/
  7.  
  8. OPTIONS RESULTS
  9.  
  10. /* Extract information about Skeleton and place it into the default
  11.  * stem variable. */
  12.  
  13.    address skeleton.1 GetInfo
  14.    stem = RESULT
  15.    echo 'Dest. Stem: ' stem
  16.  
  17.    /* Display the application version */
  18.    echo '   Version: ' value(stem||version)
  19.  
  20.    /* Display the name of the public screen that the application
  21.     * resides on */
  22.    echo '    Screen: ' value(stem||screen)
  23.  
  24.    /* Display the name of the application's ARexx port */
  25.    echo 'ARexx Port: ' value(stem||arexx)
  26.  
  27.  
  28. /* Extract information about Skeleton and place it into a named
  29.  * stem variable. */
  30.  
  31.    address skeleton.1 GetInfo skel.
  32.  
  33.    /* Display some application specific information */
  34.    echo '      Mode: ' skel.mode
  35.